home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / ERRLEV1.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  219b  |  8 lines
  1. 'Purpose : To exit program returning an error level
  2.  
  3. DECLARE SUB ExitWithRC ALIAS "_exit" (BYVAL RC AS INTEGER)
  4.  
  5. 'Just set ErrLev% to the errorlevel you want or just ExitWithRC 13
  6. ErrLev% = 13
  7. ExitWithRC ErrLev%
  8.